home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpC_1006_EditText < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.1 KB  |  47 lines
  1. %case window field%
  2.     TEHandle%    %%HandleName%;
  3. %case create%
  4.     SetRect (&bounds, %left%, %top%, %right%, %bottom%);
  5.     cur->%HandleName% = TENew (&bounds, &bounds);
  6.     TEAutoView (true, cur->%HandleName%);
  7. %case dispose%
  8.     TEDispose (cur->%HandleName%);
  9. %case mousein%
  10.     if (PtInRect (where, &(**(cur->%HandleName%)).viewRect)) {
  11.         if (cur->text != nil) {
  12.             TEDeactivate (cur->text);
  13.         }
  14.         cur->text = cur->%HandleName%;
  15.         TEActivate (cur->text);
  16.         TEClick (where, false, cur->text);
  17.     }
  18. %case update%
  19.     %If lang = MPW%
  20.         TEUpdate (&qd.thePort->portRect, cur->%HandleName%);
  21.     %end if%
  22.     %If lang = Think%
  23.         TEUpdate (&thePort->portRect, cur->%HandleName%);
  24.     %end if%
  25. %case activate%
  26. %case track%
  27. %case itemNr%
  28.     %defineItem%
  29. %case dialog field%
  30.     Str255%        %%fieldname%;
  31. %case init field%
  32.     info->%fieldname% [0] = 0;
  33. %case auxiliary%
  34. %case filter%
  35. %case set%
  36.     SetDText (%itemname%, info->%fieldname%);
  37. %case hit%
  38.     %if not disabled%
  39.         case %itemname%:
  40.                 GetDText (itemNr, info->%fieldname%);
  41.             break;
  42.     %endif%
  43. %case finish%
  44.     %if disabled%
  45.         GetDText (itemNr, info->%fieldname%);
  46.     %endif%
  47.